home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / ugly174.zip / RSB1UGLY.MRG < prev    next >
Text File  |  1992-07-05  |  741b  |  19 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RELEASE\RBBSSUB1.BAS to produce RBBSSUB1.BAS
  3. * RELEASE\RBBSSUB1.BAS:  Date 6-20-1992  Size 55569 bytes
  4. * ------------[ Created 07-04-1992 19:43:15 ]------------
  5. * REPLACING old line(s) by new
  6. 52003 WasAX = 0
  7.       WasBX = 0
  8.       WasCX = 0
  9.       WasDX = 0
  10.       IF MID$(ZWasZ$,2,1) = ":" THEN _
  11.          WasAX = ASC(ZWasZ$) - ASC("A") + 1
  12.       CALL RBBSFree (WasAX,WasBX,WasCX,WasDX)
  13.       WasI# = CDBL(WasAX) * (WasBX + 65536! * (-(WasBX < 0)))
  14.       WasI# = WasI# * WasCX
  15.       ZFreeSpace$ = STR$(WasI#) + _
  16. * ------[ first line different ]------
  17.                     " Bytes Free."                                   ' UG070501
  18.       END SUB
  19.